home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / sys / mac_files.t < prev    next >
Encoding:
Text File  |  1989-06-30  |  8.0 KB  |  283 lines
  1. (herald vmfiles)
  2.  
  3. ;;; Copyright (c) 1985 Yale University
  4. ;;;     Authors: N Adams, R Kelsey, D Kranz, J Philbin, J Rees.
  5. ;;; This material was developed by the T Project at the Yale University Computer 
  6. ;;; Science Department.  Permission to copy this software, to redistribute it, 
  7. ;;; and to use it for any purpose is granted, subject to the following restric-
  8. ;;; tions and understandings.
  9. ;;; 1. Any copy made of this software must include this copyright notice in full.
  10. ;;; 2. Users of this software agree to make their best efforts (a) to return
  11. ;;;    to the T Project at Yale any improvements or extensions that they make,
  12. ;;;    so that these may be included in future releases; and (b) to inform
  13. ;;;    the T Project of noteworthy uses of this software.
  14. ;;; 3. All materials developed as a consequence of the use of this software
  15. ;;;    shall duly acknowledge such use, in accordance with the usual standards
  16. ;;;    of acknowledging credit in academic research.
  17. ;;; 4. Yale has made no warrantee or representation that the operation of
  18. ;;;    this software will be error-free, and Yale is under no obligation to
  19. ;;;    provide any services, by way of maintenance, update, or otherwise.
  20. ;;; 5. In conjunction with products arising from the use of this material,
  21. ;;;    there shall be no use of the name of the Yale University nor of any
  22. ;;;    adaptation thereof in any advertising, promotional, or sales literature
  23. ;;;    without prior written consent from Yale in each case.
  24. ;;;
  25.  
  26. (block
  27.   (define *vm-modules*
  28.           '((osys mackernel)
  29.             (osys unm68kernel)
  30.         (osys m_dispatch)
  31.             (t3_primops mconstants)
  32.             (osys m68lap)
  33.             (t3_primops locations) ;++ talk to RK about this
  34.                                       ; operation needs locations
  35.             (osys vm_boot)
  36.             (osys kernel)
  37.  
  38.             ;; Continuation stuff
  39.             (osys handler)   ; must occur before any DEFINE-HANDLER
  40.             (osys frame)
  41.             (osys throw)
  42.             (osys operation)       ; kernel needs %operation
  43.  
  44.             ;; VM error system
  45.             (osys error)
  46.             (osys unix_sys5)
  47.             (osys unix_fault)
  48.  
  49.             ;; Primitive procedures
  50.             (osys fixnum)
  51.             (osys list)
  52.             (osys map)        ; uses list
  53.             (osys character)  ; uses list
  54.             (osys string)     ; uses list, character
  55.             (osys vector)     ; uses list 
  56.             (osys symbol)     ; uses string
  57.             (osys struct)     ; uses list
  58.  
  59.             ;; closed compiled primops
  60.             (t3_primops m68primops)
  61.             (t3_primops m68arith)
  62.             (t3_primops m68low)
  63.             (t3_primops predicates)
  64.             (t3_primops open)
  65.             (t3_primops aliases)
  66.             (t3_primops carcdr)
  67.         (t3_primops genarith)
  68.  
  69.             ;; Storage management
  70.             (osys weak)
  71.             (osys free)
  72.             (osys pool)
  73.             (osys string_buf)
  74.             (osys table)
  75.             (osys table_entry)
  76.             (osys table_util)
  77.             (osys weak_table)
  78.             (osys hash)        ; must come after weak_table
  79.             (osys inf_vector)
  80.  
  81.             ;; VM file system
  82.             (osys buffer)
  83.             (osys port_op)
  84.             (osys unix_vmport)
  85.             (osys vm_port)
  86.  
  87.             ;; VM system
  88.             (osys environment)  ; must preceed any DEFINE-SYNTAX
  89.             (osys vm_system)))
  90.  
  91.   ;;; Closed compiled versions of primops.  In a system which doesn't
  92.   ;;; contain an interpreter these files are not necessary.
  93.  
  94.   (define *closed-compiled-primops*
  95.           '((t3_primops m68constants)
  96.             (t3_primops m68primops)
  97.             (t3_primops m68arith)
  98. ;++            (t3_primops locations)  ; setter is closed compiled
  99.             (t3_primops m68low)
  100.             (t3_primops predicates)
  101.             (t3_primops open)
  102.             (t3_primops aliases)
  103.             (t3_primops carcdr)
  104.             ))
  105.  
  106.   ;;; Z system
  107.  
  108.   ;;; The Z system depends only on the VM
  109.   (define *z-system-modules*
  110.           '((osys zread)
  111.             (osys zprint)
  112.             (osys zeval)
  113.             (osys zload)          ; not neaded if loader is not present
  114.             (osys zsystem)))
  115.  
  116.   (define *bootstrap-z-system*
  117.     (append *vm-modules*
  118.             *z-system-modules*))
  119.  
  120.   ;;; Garbage collector, scanner, suspender
  121.  
  122.   (define *garbage-collector*
  123.           '((osys scanner)
  124.         ;    (osys gc_auxiliary)
  125.         ;    (osys suspender)
  126.             (osys unix_gc)
  127.             (osys gc_weak)
  128.             (osys gc)
  129.             (osys gc_top)
  130.             ))
  131.  
  132.   ;;; Loader
  133.   ;;; Storage management must be present in order to use the loader.
  134.  
  135.   (define *loader-modules*
  136.           '((osys dump_codes)
  137.             (osys retrieve)
  138.             (osys m68_comex)
  139.             (osys load_comex)
  140.             ))             ; this could come later
  141.  
  142.   (define *operation-dispatch-modules*
  143.         '(
  144.           (osys condition)    ; Exceptions
  145.           (osys location)
  146.           ))
  147.  
  148.   (define *ZVM-system*     ; VM with Z system
  149.     (append
  150.             *vm-modules*
  151.             *z-system-modules*
  152.             *garbage-collector*
  153.             *loader-modules*
  154.             *operation-dispatch-modules*
  155.             '((osys unix)
  156.               (osys z_undefined))
  157.             ))
  158.  
  159.  
  160.  
  161.   (define *VM-system*      ; VM as a runtime library
  162.     (append
  163.             *vm-modules*
  164.             *garbage-collector*
  165.             *loader-modules*))
  166.  
  167.   ;;; Object and operation stuff
  168.  
  169.  
  170.   ;;; Arithmetic - the order of arithmetic modules is important
  171.  
  172.   (define *arithmetic-modules*
  173.           '((osys ratio)
  174.             (osys mac_float)
  175.             (osys ieee_float)    
  176.             (osys arith)
  177.             (osys m68_bignum)
  178.             (osys big_fixnum)
  179.             (osys big_util)
  180.             (osys bignum)
  181.             (osys big_arith)
  182.             (osys dispatch)
  183.             (osys random)
  184.             (osys equality)
  185.             ;(osys single_float)
  186.             ;(osys double-float)
  187.             ;(osys complex)
  188.             ))
  189.  
  190.   (define *file-system-modules*
  191.         '(
  192.          (osys port)
  193.          (osys unix_port)
  194.          (osys sort)
  195.          (osys herald)
  196.          (osys load)
  197.          (osys dump)
  198.          (osys dump_comex)
  199.          ))
  200.  
  201.  
  202.   ;; Syntax system
  203.   (define *syntax-system-modules*
  204.           '(
  205.             (osys syntax)
  206.             (osys pattern)
  207.             (osys sp_form)
  208.             (osys macros)        ; ENV calls MAKE-TABLE which calls GC_STAMP
  209. ;            (osys unix_macro)  ; macro's for foreign calls
  210.             (osys cond)
  211.             (osys let)
  212.             (osys quasiquote)
  213.             (osys object)       ; object macro
  214.             (osys modify)
  215.             ))
  216.  
  217.   (define *t-repl-modules*
  218.       '((osys readtable)
  219.         (osys recognize)
  220.         (osys read)
  221.         (osys sym_printer)
  222.         (osys format)
  223.         (osys pfloat)
  224.         (osys eval)
  225.         (osys repl)
  226.         (osys fs_parse)
  227.         (osys fs)
  228.         (osys tree)         
  229.         (osys sets)
  230.         (osys combinators)
  231.         (osys transcript)
  232.         (osys exports)
  233.         (osys obsolete)
  234.         (osys tsystem)
  235.         ))
  236.  
  237.  
  238.   (define *inspector-modules*
  239.       '((osys crawl)
  240.         (osys debug)
  241.         (osys trace)
  242.         (osys pp)
  243.     (osys unix_timer)
  244.         ))
  245.  
  246.   (define *t-system*
  247.     (append
  248.             *vm-modules*
  249.             *z-system-modules*
  250.             *garbage-collector*
  251.             *loader-modules*
  252.             *operation-dispatch-modules*
  253.             '((osys unix))
  254.             *arithmetic-modules*
  255.             *file-system-modules*
  256.             *syntax-system-modules*
  257.             *inspector-modules*
  258.             *t-repl-modules*
  259.             ))
  260.  
  261.   (define *t-modules*
  262.     (append *vm-modules*
  263.             *z-system-modules*
  264.             *garbage-collector*
  265.             *loader-modules*
  266.             *operation-dispatch-modules*
  267.             *arithmetic-modules*
  268.             *file-system-modules*
  269.             *syntax-system-modules*
  270.             *inspector-modules*
  271.             *t-repl-modules*))
  272.  
  273.  
  274.   (define *library-modules*
  275.           '(
  276.             (osys loop)
  277.             (osys for)
  278.             (osys moremaps)
  279.             ))
  280.  
  281.   ;(osys dk)))  ;++ get rid of this
  282. )
  283.